home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / sys / 2b_mv_os2_src.lha / MultiView Src / mv_asl.e < prev    next >
Encoding:
Text File  |  1999-02-16  |  1.4 KB  |  61 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE  'asl',
  5.         'libraries/asl',
  6.         '*mv_consts'
  7.  
  8. DEF req : PTR TO filerequester
  9.  
  10. ->  Procedura zwracajâca peînâ nazwë pliku
  11. ->  IN :
  12. ->    drawer   -> katalog
  13. ->    file     -> nazwa pliku
  14. ->  OUT :
  15. ->    fullname -> peîna nazwa (rozwiniëte assigny)
  16. ->
  17.  
  18. PROC get_fullname(drawer : PTR TO CHAR,file : PTR TO CHAR)
  19.  
  20. DEF fullname[256] : STRING,
  21.     pathlock,
  22.     success
  23.  
  24.   pathlock := Lock(drawer,OLDFILE)
  25.   success := NameFromLock(pathlock,fullname,256)
  26.   AddPart(fullname,file,256)
  27.  
  28. ENDPROC fullname
  29.  
  30. ->  Procedura pobierajâca plik via ASL filerequeester
  31. ->  IN :
  32. ->      titletext   -> Tekst na belkë okna
  33. ->      pubscreen   -> nazwa ekranu na którym ma sië otworzyê (DEFAULT NIL)
  34. ->  OUT :
  35. ->      success     -> wybraî coô z requestera
  36. ->
  37. ->  Dostëp DO pól struktury filerequester jest via globalna zmienna req
  38. ->
  39.  
  40. PROC file_req(titletext : PTR TO CHAR, pubscreen = NIL)
  41.  
  42.   IF (aslbase := OpenLibrary('asl.library',38)) = NIL THEN Raise(ERR_NO_ASL)
  43.  
  44.   req := AllocAslRequest(ASL_FILEREQUEST,
  45.                         [ASLFR_TITLETEXT,    titletext,
  46.                          ASLFR_PUBSCREENNAME,pubscreen,
  47.                          ASLFR_DOPATTERNS,   TRUE,
  48.                          ASLFR_DOMULTISELECT,TRUE,
  49.                          NIL])
  50.  
  51.   IF req = NIL THEN Raise(ERR_ALLOC)
  52.  
  53.   IF AslRequest(req,NIL)
  54.     RETURN TRUE
  55.   ELSE
  56.     RETURN FALSE
  57.   ENDIF
  58.  
  59. ENDPROC
  60.  
  61.